home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2005 Utilities / CHIP Utilities 2005.7z / CHIP Utilities 2005.iso / images / arachne.igz / arachne.img / LEVEL0 / ARACHNE.CAB / Bin / Arachne.bat next >
DOS Batch File  |  2005-01-03  |  7KB  |  197 lines
  1. @if "%debug%"=="" echo off
  2. if "%1"==":" if not "%2"=="" goto %2
  3.  
  4. if "%wattcp.cfg%"=="" %0 : _error missing WATTCP (packet driver)
  5. if not exist %wattcp.cfg%\wattcp.cfg %0 : _error missing %wattcp.cfg%\wattcp.cfg
  6.  
  7. if exist PROTMAN$ if not exist PKTDRV$ %0 : _error MsClient packet driver missing (MSNET)
  8.  
  9. if not exist %ramdrv%\bin\pktchk.com goto _npktchk
  10. %ramdrv%\bin\pktchk.com 0x20 0xff >nul
  11. if errorlevel 1 %0 : _error missing packet driver
  12. :_npktchk
  13.  
  14. :_start
  15. echo. >%tmp%\_arachne.tmp
  16. if not exist %ramdrv%\etc\global.set goto _noglob
  17. type %ramdrv%\etc\global.set >%tmp%\_arachne.tmp
  18. :_noglob
  19. if not exist %ramdrv%\etc\arachne.set goto _nospec
  20. type %ramdrv%\etc\arachne.set >%tmp%\_arachne.tmp
  21. :_nospec
  22. xgrep -sy "^[:s]*@*[:s]*s?e?t?[:s]*ara_.+=" %tmp%\_arachne.tmp >%tmp%\_arachne.bak
  23. if errorlevel 1 goto _noset
  24. xgrep -sy "^[:s]*@*[:s]*set[:s]+" %tmp%\_arachne.bak >%tmp%\_arachne.bat
  25. xgrep -syv "^[:s]*@*[:s]*set[:s]+" %tmp%\_arachne.bak >%tmp%\_arachne.tmp
  26. if errorlevel 1 goto _runset
  27. lmod /L* set []<%tmp%\_arachne.tmp >>%tmp%\_arachne.bat
  28. :_runset
  29. call %tmp%\_arachne.bat
  30. :_noset
  31.  
  32. if "%ara_ti%"=="" set ara_ti=30
  33.  
  34. if "%1"=="/0" goto _2launch
  35. if "%1"=="-0" goto _2launch
  36. if "%ara_ncfg%"=="1" goto _2launch
  37. if not exist %ramdrv%\etc\arachne.cfg goto _2launch
  38. lmod /s /l* [$1]=[$2:!]<%ramdrv%\etc\arachne.cfg >%tmp%\_arachne.cfg
  39. set wcb1=
  40. set wcb2=
  41. set wcb3=
  42. if "%ara_hot%"=="1" set wcb1=1
  43. if "%ara_his%"=="1" set wcb2=1
  44. if "%ara_cks%"=="1" set wcb3=1
  45. call w.bat box @%0:_info #5,%ara_ti%
  46. if errorlevel 2 goto _end
  47. set ara_hot=%wcb1%
  48. set ara_his=%wcb2%
  49. set ara_cks=%wcb3%
  50. inifile %tmp%\_arachne.cfg [tcp/ip]IP_Address=WATTCP
  51. inifile %tmp%\_arachne.cfg [tcp/ip]TCPconfig=%wattcp_cfg%
  52. if "%ara_hot%"=="1" goto _1hot
  53. :_0hot
  54. inifile %tmp%\_arachne.cfg [system]Hotlist=.\HOTLIST.HTM
  55. if exist %ramdrv%\etc\hotlist.htm del %ramdrv%\etc\hotlist.htm >nul
  56. goto _9hot
  57. :_1hot
  58. inifile %tmp%\_arachne.cfg [system]Hotlist=%ramdrv%\ETC\HOTLIST.HTM
  59. :_9hot
  60. if "%ara_his%"=="1" goto _1his
  61. :_0his
  62. inifile %tmp%\_arachne.cfg [system]History=.\HISTORY.LST
  63. if exist %ramdrv%\etc\History.lst del %ramdrv%\etc\History.lst >nul
  64. goto _9his
  65. :_1his
  66. inifile %tmp%\_arachne.cfg [system]History=%ramdrv%\ETC\HISTORY.LST
  67. :_9his
  68. if "%ara_cks%"=="1" goto _1cks
  69. :_0cks
  70. inifile %tmp%\_arachne.cfg [system]CookieFile=.\COOKIES.LST
  71. if exist %ramdrv%\etc\Cookies.lst del %ramdrv%\etc\Cookies.lst >nul
  72. goto _9cks
  73. :_1cks
  74. inifile %tmp%\_arachne.cfg [system]CookieFile=%ramdrv%\ETC\COOKIES.LST
  75. :_9cks
  76. lmod /s= /l* [$1] [$2:!]<%tmp%\_arachne.cfg >%ramdrv%\etc\arachne.cfg
  77. set | tfind /f1,4 "ARA_">%tmp%\_arachne.bat
  78. if not exist %ramdrv%\etc\global.set goto _yglob
  79. xgrep -syv "^[:s]*@*[:s]*s?e?t?[:s]*ARA_.+=" %ramdrv%\etc\global.set >>%tmp%\_arachne.bat
  80. :_yglob
  81. type %tmp%\_arachne.bat >%ramdrv%\etc\global.set
  82. if exist %ramdrv%\etc\arachne.set del %ramdrv%\etc\arachne.set >nul
  83.  
  84. :_2launch
  85. if not "%1"=="/0" if not "%1"=="-0" if exist %ramdrv%\etc\arachne.pck if exist %ramdrv%\etc\arachne.cfg goto _launch
  86. if not "%1"=="/0" if not "%1"=="-0" goto _setup
  87. call w.bat box @%0:_sure #1,%ara_ti%
  88. if errorlevel 2 goto _end
  89.  
  90. :_setup
  91. for %%i in (%ramdrv%\arachne\arachne.cfg %ramdrv%\arachne\arachne.pck) do if exist %%i del %%i >nul
  92. for %%i in (%ramdrv%\etc\arachne.* %ramdrv%\etc\*.lst %ramdrv%\etc\hotlist.htm) do if exist %%i del %%i >nul
  93. if not exist %ramdrv%\etc\hotlist.htm if exist %ramdrv%\arachne\hotlist.htm copy %ramdrv%\arachne\hotlist.htm %ramdrv%\etc\hotlist.htm >nul
  94. if not "%1"=="/0" if not "%1"=="-0" if exist %ramdrv%\etc\arachne.cfg copy %ramdrv%\etc\arachne.cfg %ramdrv%\arachne\arachne.cfg >nul
  95. if "%1"=="/0" shift
  96. if "%1"=="-0" shift
  97. for %%i in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) do echo.
  98. %ramdrv%
  99. cd %ramdrv%\arachne
  100. call %ramdrv%\arachne\setup.bat %1 %2 %3 %4 %5 %6 %7 %8
  101. goto _save
  102.  
  103. :_launch
  104. if not exist %ramdrv%\etc\hotlist.htm if exist %ramdrv%\arachne\hotlist.htm copy %ramdrv%\arachne\hotlist.htm %ramdrv%\etc\hotlist.htm >nul
  105. if not exist %ramdrv%\etc\arachne.cfg goto _go
  106. if not exist %ramdrv%\etc\arachne.pck goto _go
  107. for %%i in (%ramdrv%\arachne\arachne.cfg %ramdrv%\arachne\arachne.pck) do if exist %%i del %%i >nul
  108. for %%i in (%ramdrv%\etc\arachne.cfg %ramdrv%\etc\arachne.pck) do if exist %%i copy %%i %ramdrv%\arachne\. >nul
  109. :_go
  110. for %%i in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) do echo.
  111. %ramdrv%
  112. cd %ramdrv%\arachne
  113. call %ramdrv%\arachne\arachne.bat -r %1 %2 %3 %4 %5 %6 %7 %8
  114. goto _save
  115.  
  116. :_save
  117. cd %ramdrv%\
  118. if not exist %ramdrv%\arachne\arachne.cfg goto _end
  119. if not exist %ramdrv%\arachne\arachne.pck goto _end
  120. for %%i in (%ramdrv%\etc\arachne.*) do if exist %%i del %%i >nul
  121. for %%i in (%ramdrv%\arachne\arachne.cfg %ramdrv%\arachne\arachne.pck) do if exist %%i copy %%i %ramdrv%\etc\. >nul
  122. call drd.bat %srcdrv%
  123. if errorlevel 1 goto _end
  124. echo ARACHNE: Saving Arachne Profile to %srcdrv%\etc
  125. for %%i in (%srcdrv%\etc\arachne.* %srcdrv%\etc\global.set) do if exist %%i del %%i >nul
  126. for %%i in (%srcdrv%\etc\history.lst %srcdrv%\etc\hotlist.htm %srcdrv%\etc\cookies.lst) do if exist %%i del %%i >nul
  127. for %%i in (%ramdrv%\etc\arachne.* %ramdrv%\etc\global.set) do if exist %%i copy %%i %srcdrv%\etc\. >nul
  128. for %%i in (%ramdrv%\etc\history.lst %ramdrv%\etc\hotlist.htm %ramdrv%\etc\cookies.lst) do if exist %%i copy %%i %srcdrv%\etc\. >nul
  129. goto _end
  130.  
  131. ::
  132. :_info "Arachne (Browser/Email for DOS)" [x]
  133.                            (~press any key~: #? sec.)
  134.    Dialog timeout [$ ara_ti,3] seconds
  135.  
  136.    Arachne's default configuration demands P100 or
  137.    better and VESA compatible VGA (1024x768 2MB)
  138.    When this does not work for you choose 'Cancel'
  139.    or hit 'Esc' and run 'Setup.bat' to configure
  140.    Arachne to your needs
  141.  
  142.    Save to diskette (if writable):
  143.    [!] Hotlist
  144.    [!] History
  145.    [!] Cookies
  146.    Downloads, Email and Cache can NOT be saved
  147.    If needed copy them from Ramdisk before reboot!
  148.  
  149.    Arachne GPL 1.79 used here is downloaded from:
  150.    http://www.cisnet.com/glennmcc/ar179gpl/
  151.    (stripped from superfluous CtMouse and PKT/PPP)
  152.  
  153.                   [ Ok ]  [? Cancel ]
  154. ::
  155. :_sure "Arachne Clean Setup" [x]
  156.                            (~press any key~: #? sec.)
  157.  
  158.    Arachne Setup is about to start
  159.  
  160.    Your current setup will be deleted and Arachne's
  161.    Setup-routine will launch to configure Arachne
  162.    to your needs. Press 'Esc' if you do not want to
  163.    loose your current Arachne configuration
  164.  
  165.    Arachne GPL 1.79 used here is downloaded from:
  166.    http://www.cisnet.com/glennmcc/ar179gpl/
  167.    (stripped from superfluous CtMouse and PKT/PPP)
  168.  
  169.                   [ Ok ]  [? Cancel ]
  170. ::
  171. :_error
  172. shift
  173. shift
  174. echo.
  175. echo ARACHNE: (Error) %1 %2 %3 %4 %5 %6 %7 %8
  176. echo.
  177. @rem pause
  178. goto _end
  179. :_end
  180. set | tfind /f1,2 "W_" >%tmp%\_arachne.tmp
  181. set | tfind /f1,4 "ARA_" >>%tmp%\_arachne.tmp
  182. type %tmp%\_arachne.tmp | lmod /L* /B= set [$1]=>%tmp%\_arachne.bat
  183. call %tmp%\_arachne.bat
  184. if exist %tmp%\_arachne.* del %tmp%\_arachne.*
  185. set ?=
  186. set wcb1=
  187. set wcb2=
  188. set wcb3=
  189. set wcb4=
  190. set wcb5=
  191. set wcb6=
  192. set wcb7=
  193. set wcb8=
  194. set wcb9=
  195. set wrb=
  196. set wbat=
  197.